Validation on basic reports. 
REPORT ZSAMPLE REPORT VALID. 


SELECTION-SCREEN begin of BLOCK B1 WITH FRAME. 
PARAMETERS : P_EKORG TYPE EKORG, 
P_LIFNR TYPE LIFNR. 
SELECTION-SCREEN END OF BLOCK Bl. 


SELECTION-SCREEN begin of BLOCK B2 WITH FRAME. 
PARAMETERS : P_VKORG TYPE VKORG, 

P_KUNNR TYPE KUNNR. 
SELECTION-SCREEN END OF BLOCK B2. 


SELECTION-SCREEN begin of BLOCK B3 WITH FRAME. 
PARAMETERS : R1 RADIOBUTTON GROUP Gl, 

R2 RADIOBUTTON GROUP Gl, 

R3 RADIOBUTTON GROUP Gl, 

R4 RADIOBUTTON GROUP Gl. 
SELECTION-SCREEN END OF BLOCK B3. 


SELECTION-SCREEN begin of BLOCK B4 WITH FRAME. 
PARAMETERS : Rb1 RADIOBUTTON GROUP G2, 

Rb2 RADIOBUTTON GROUP G2, 

Rb3 RADIOBUTTON GROUP G2, 

Rb4 RADIOBUTTON GROUP G2. 

SELECTION-SCREEN END OF BLOCK B4. 

DATA V_LIFNR TYPE LIFNR. 


AT SELECTION-SCREEN ON RADIOBUTTON GROUP g2. 
*AT SELECTION-SCREEN ON block b4. 
select LIFNR into V_LIFNR FROM LFA1 up to 1 rows 


WHERE LIFNR = P_LIFNR. 
endselect. 


IF SY-SUBRC <> 0. 
MESSAGE ' NOT VALID VENDOR ' TYPE 'E'. 
ENDIF. 


